-- background: 11983 from stack: in
-- bmap block id: 12468
-- flags: 0000
-- background id: 0
-- name: 


-- part 4 (field)
-- low flags: 00
-- high flags: 0004
-- rect: left=1 top=2 right=35 bottom=232
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 21
-- text size: 24
-- style flags: 256
-- line height: 32
-- part name: 


-- part 5 (button)
-- low flags: 00
-- high flags: 0003
-- rect: left=436 top=7 right=31 bottom=464
-- title width / last selected line: 0
-- icon id / first selected line: 24317 / 24317
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: First
----- HyperTalk script -----
on mouseUp
  visual effect dissolve
  go to first card
end mouseUp



-- part 6 (button)
-- low flags: 00
-- high flags: 2003
-- rect: left=467 top=1 right=35 bottom=509
-- title width / last selected line: 0
-- icon id / first selected line: 14617 / 14617
-- text alignment: 1
-- font id: 18
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: Print
----- HyperTalk script -----
on mouseUp
  global Name1, Title1, Fontname, Fonttitle, corrected
  set the cursor to 4
  set the lockscreen to true

  stripIt 1
  put corrected into Name1
  stripIt 2
  put corrected into Title1

  put bkgnd field 1 & "p" into ps
  push card
  go to card ps of this stack
  set locktext of background field 2 to true

  put "/Name (" & Name1 & ") def" & return before first item of bkgnd field 2
  put "/Title (" & Title1 & ") def" & return before first item of bkgnd field 2
  put "/FontName /" & FontName & " def" && return before first item of bkgnd field 2
  put "/TitleFontName /" & Fonttitle & " def" && return before first item of bkgnd field 2

  --put "gsave initmatrix" & return before first item of bkgnd field 2

  SendPS bg fld 2 ,true,true
  --demosendHPS 0,2,1,1
  --set style of background field 2 to transparent
  --set textSize of background field 2 to 1
  --doMenu "Print Card"
  --open printing with dialog
  --print this card
  --close printing
  --set textSize of background field 2 to 9
  -- set style of background field 2 to scrolling

  repeat until char 1 of bkgnd field 2 = "%"
    delete line 1 of bkgnd field 2
  end repeat

  pop card

end mouseUp